Editorial — 

PIRATAS 



Pese a que la baja de precios 
del software original acaecida en 
los últimos meses presagiaba una 
disminución en el volumen de la 

La esperada ley sobre la pro- 
piedad intelectual no acaba de 
llegar y, de esta forma, el caldo 
de cultivo para los piratas infor- 
máticos sigue siendo idóneo. 

Como en todos los ámbitos de 
la actividad humana, siempre hay 
quien intenta aprovecharse del 
trabajo ajeno y, de esta forma en- 
riquecer sus erarios con el sudor 
de otros. Pero en el caso de la pi- 
ratería de software el problema 
es mucho mayor. Personas que 
nunca sustraerían un programa 
original de unos grandes almace- 
nes lo hacen alegremente acogi- 
dos al hecho de la piratería. Des- 
graciadamente la conciencia 
social en este aspecto parece no 
estar todavía desarrollada, de 
modo que, personas intachables 



aspecto: 



i piratas, o en 
; amistades que 
acaban de conseguir una copia 
del último programa de moda. 
¿Serían capaces, acaso, de sor- 
prender a sus amistades con el 
robo del último modelo de radio- 
La solución al problema de la 
piratería, pues, no está en la per- 
secución penal de los infractores, 
sino en la concienciación de los 
usuarios de que están promo- 
viendo alegremente una actividad 
ilegal y delictiva. 
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MESAS PARA 
ORDENADOR 
MICROGAYMA 

S tenéis dificultades con la ubicación 
del MSX en vuestro lugar de ope- 
raciones. La pantalla, unidad central im- 
presora y todo el montón de periféricos 
que podáis poseer, os ocupan un espacio 
exageradamente grande. Si realmente os 
acucian los problemas de espacio o sim- 



una para cada necesidad individual 





CS 



otros 
lenguajes 

se habla de informática, poco, un monstruo antidilu 



es? 

Daremos en este rincón un repaso 
muy superficial a las ventajas y princi- 
pales características de los diferentes 
lenguajes que pueden 
ordenador como el MSX, 
IBM PC. 

El BASIC, pes 



lenguaje senci- 
]ue ofrece resultados de 
ida y visual. Cualquiera 
a programar en BASIC 
milirud con el lenguaje 



al PASCAL. Este 



manca. Sus excelentes pr 
velocidad y optimización de memori; 
hacen, sin embargo, hoy por hoy in¡ 
tituible. Sin embargo, se prevee que 
rápidos avances que se están realizai 
en el campo de lenguajes y compilado 
permita que los lenguajes de alto n 
lleguen a ejecutarse a velocidades si 
lares a las del ensamblador. 

Como ejemplo de esto, hemos 
nombrar al lenguaje C. El C es el 
guaje que está revolucionando la in 
mática personal de nuestros dias. La 
mensa mayoría de los programadore: 
ordenadores personales se están pa: 
do, poco a poco, a este sensacional I . 
guaje que combina la facilidad del BASIC 
o el PASCAL con la velocidad del ler 
guaje ensamblador. Todo un logro. 

Pero hay muchos otros lenguajes ir 
teresantes. En los MSX hay que desraca: 
por su gran aceptación, el lenguaj 
LOGO, una derivación del LISP, espe 
cialmente diseñada para facilitar < 
aprendizaje de conceptos abstractos a le 
más pequeños de la familia. Este lenguí 
je está teniendo una importante impiar 



buenos pr _ 
es el más extendido 
en la mayoría de país. 

Muy conocido resull 
TRAN, 1< 



El lenguaje PASCAL 



i también el FOR- 

complejos. Se puede decir que el FOR- 
TRAN ha sido ampliamente superado 
por otros lenguajes que, siendo más ge- 
nerales, permiten hacer uso de las fun- 
ciones del FORTRAN, como pueden ser 
últimas versiones de PASCAL o BASIC 
>argo, pot 



como LISP y PROLOG (e 
RPG III, etc. Aunque hemt 




UNA MESA DE 
ORDENADOR. 
¿PARA QUE? 




¡CONTROL TIME 




REGALATE UN LIBRO 
VITAL PARA EL 




Programa ■ 



■Por Jordi Farando Gener ■ 



AGENDA 
TELEFONICA 



¿Necesitas disponer de una bue- 
na agenda con capacidad para 
todos los teléfonos? Nuestro 
amigo Jordi Farando ha desarro- 
llado un magnífico programa 
:rá de gran 



• ***********************< 

' * AGENDA TELEFONICA 
' * JORDI FARANDO GENER 

70 ' *************************** 

B0 'Pantalla inicial 

J SCREEN0:KEYOFF: FORB=0TO22: FORA=0 
T039: LOCATEA, B: PRINT" *" : NEXTA, B 
100 LOCATE 5, 7: PRINT" CONECTA LA UN 
-~>D DE DISCO » 

3 LOCATE 5, 10: PRINT" Y COLOCA UN 
DISCO " 

120 LOCATE 3, 1 1 ! PRINT" Cuando estés 

listo pulsa Space " 
130 K»-INKEY«| IFK»<>" "THEN130 

150 SCREEN0: WIDTH40: COLOR 15,1,1:KE 
Y OFF: CLEAR 1000 

160 ON KEY GOSUB 1580: KEY ( 1 ) ON 
170 ON STOP GOSUB 1730:STOPON 
180 ON ERROR GOTO 1750 

OPEN " F I CHAS . DAT " AS# 1 LEN= 1 20 
FIELD#1,30 AS NOM*,40 AS ADR*, 1 
0 AS TEL*,40 AS COM* 

220 CLS:F0RTS=1T03: LOCATE 16.TS:F0R 
J9=1T08: PRINT"*" ; : NEXTN9, TS: L0CATE1 
>, 2: PRINT"* Menú *" 

230 LOCATE 0, 5: PRINT"-programa Agen 

by Jordi Faraudo Gener" 
240 L0CATE6,7:PRINT". Introducir nu 

250 LOCATE 6. 8: PRINT". Ver nombres-* 

tel. ordenados" 
260 LOCATE 6, 9: PRINT". Buscar datos 

b. parte de ellos" 
270 L0CATE6, 10:PRINT". Modificar da 



300 LOCATE 0,14:PRIN' 
lo que sale por pan' 
ier momento pulse fl 




310 IF K>i 



THEN t 



=7:L0CATE6, 1 



:PF I 



320 LOCATE 6. K: PRINT"*" : IFKX 
0CATE6, K-l: PRINT". " 
330 F*=INKEY*: IFF*=" "THEN330ELSEIFF 
*=CHR*(31)THENK=K+1 ELSE IFF*=CHR* 
30) THENK=K-1 : L0CATE6, K+l : PRI-NT" . " : : 
FK :7THENK=11 

340 IFF*=CHR*(24)THEN360 
350 F*= GOTO 310 

360 ON K-6 GOSUB 380.1120.640,1310, 
1540 

370 F*="":F1*="":N1=0: J=3:G0T0 210 
380 'Subprograma para la introduce: 
ón c" 



390 CLSrf 



: F0RN=MT03 



400 FORTS=0TO2: LOCATE 9,TS:F0RN9= 
027:PRINT"*"; : NEXTN9 , TS : L0CATE9 , 1:P 
RINT"* Introducir nuevos datos i 



J L0CATE2,3:PRINT"Para volver i 



440 LINEINPUT P*i IF LEN(P*>>30 THEN 

P*=LEFT*(P*,30> 
450 IF p*="" THEN M=N: RETURN 
460 F'RINT: PRINT "Dirección:" 
470 LINEINPUT S*: IF LEN(S*>>40 THEN 

S*=LEFT* (SS, 40) 
480 PRINT: F'RINT"Tel éf ono" : INPUT L< 
IF LEN(L*>>10 THEN L*=LEFT* (L*. 10: 
490 PRINT: F'RINT "Comentar i os: " 
500 LINE INPUT C*:IF LEN(C*)>40 THE 
N C*=LEFT*(C*,40> 
510 GOSUB 1560 
520 ' Visualización datos 
530 CLS:PRINT:PRINT"-Estos son : 

540 PRINT: PRINT"Nombre: ":PRINT"- 
: F'RINT P* 

550 PRINT:PRINT"Dirección: "sPRIl 



RINTC*: F'RINT: PRINT"Correct 



GOTO 430 

630 PUT #1,N:CLS:NEXT N: M= (LOF ( 1 > / 1 
20) +1 : RETURN 

650 J=3:CLS?FQRTS=0TO2: LOCATE 9.TS: 
F0RN9=1TQ24: PRINT"*" ; : NEXTN9. TS: LQC 
ATE9\ 1: PRINT" fcBuscar datos por c 



10 LOCATE 11. ll:PRINT"3.Teléfono" 
LOCATE 11,12:PRINT"4. Comen t ario" 
20 LOCATE 9, 15: PRINT"Escoge (1/2/: 

30 F1*=INKEY»S IFF1*=""THEN730ELSE 
FF1*=CHR4 (27) THENRETURN 
740 IF Fl*< n l" OR Fl$:: "4" THEN RETU 



750 ON VALÍFl*) GOSUB 780.870,960,1 
050 

760 F1*="":F2*="":N1=0:GOTO 650 

770 'Buscar datos sabiendo el nomb 

780 CLB: PRINT "Nombre o parte del 

790 LINEINPUT PP*: IF LEN (PP*) >30 T 

EN PP*=LEFT*(PP*,30> 

800 IF PP*="" THEN RETURN 

810 GOSUB 1660 

B20 FOR N=l TO LOF(1)/120 

830 GET#1 , N: F'* = NDM* : S*=ADR* , L*=TEL* 

:C*=COM* 

B40 P=LEN(PP*) : V IF LEFT* (P*, P)-=PF* 

HEN GOSUB 1690 

850 PRINT: NEXT N: F'RINT 

860 GOSUB 1500: RETURN 

B70 'Buscar por dirección 

880 CLS: PRINT "Dirección o parte c 

890 LINE INPUT SS*: IF. LEN (SS*) >40 

HEN SS*=LEFT*(SS*,40) 

900 IF SS*="" THEN RETURN 

910 GOSUB1660:FOR N=l TO LOF(l)/i: 

920 GET# 1 , N: P*=NOM*: S*=ADR«: L*=TEl 

:C*=COM* 

930 S=LEN (SS*) : IF LEFT* (S*. S) =SS* 

HEN GOSUB 1690 

9.40 PRINT: NEXT N: F'RINT 

950 GOSUB 1500: RETURN 

960 'Buscar por telé-fono 

970 CLS:PRINT"Teléfono o parte de 

INPUT LL* 
980 IF LL*="" THEN RETURN 
990 GOSUB1660:FOR N=l TO LOF(l)/i: 
000 GET# 1 , N : P*=NOM* : S*=ADR* : L*=T! 
>:C*=COM* 

010 L=LEN (LL*) : IF LL*=LEFT* <L*. L: 

HEN GOSUB 1690 

020 F'RINT: NEXT N 

030 PRINT: GOSUB 1500: RETURN 

040 'Buscar sabiendo el comentar: 

050 CLS:PRINT"Comentario o parte 

- él : ":LINEINPUT CC* 

060 IF CC*="" THEN RETURN 

070 GOSUB 1660: FOR N=l TO LOF ( 1 ) / : 

080 GET#1 , N: P*=NOM*: S*=ADR*: L*=TEL 
:C*=COM* 

090 C=LEN (CC*) : IF CC*=LEFT* (C*. C: 

HEN GOSUB 1690 

100 F'RINT: NEXT N 

110 PRINT: GOSUB 1500: RETURN 

120 'Subprograma impresión de dato 

130 CLS: FORTS=0TO2: LOCATE 4,TSi 
N9= 1 T03 1 : PR I NT " * " : : NE X TN9 . TS 
,1 140 LOCATE 4. liPRINT"* Visuali: 
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Progn 



illa 



VI) 



170 F2*=INKEY$: IF F2*="" THEN 11 
ELSE IF F2*=CHR*(27)THEN RETURN 
80 IF LEFT*(F2*, l)="p" OR LEFT*(F 
l,l)-"P" THEN F2*="P" ELSE IF LEFT 
F2*;l>="i" GR LEFT$(F2*. 1>="I" TH 
EN F2*="I" 
1190 'Ver datos 

) CLS: GOSUB 1 660 iB»65: J«3 
1210 FOP: N=l TO LOF ( 1 ) / 120 : GET #: 
1220 P»=NQM* S S*-ADR*¡ L*=TEL*: C*=C 

IF Nl=9 THEN N1=0: J=3:B0SUB 15 
00: CLS: GOSUB 1660 

IF ASC(P*!=B THEN 1250 ELSE 12 

1250 LOCATE0, J : PRINTP»; L*: J=J+2: t 



ELSE 1210 
1280 IFF2*="I"THEN GOSUB 1590 

ÍN 



1290 RETURN 



ama para modificar da 



.320 LOCATE5,4:PRINT"Vuelta a menú 

)or <Return>":L0CATE3,6 

1330 INPUT" Introduce el n° de orde 



1340 IF NI LOF < ] 



,'120ORN1=0THENRETU 



¡iPRIN" 



';P*:PRINT"Direc. 



1370 F'RINT: PRINT"Hay algo a modifi 

<No=< RETURN >> ?" 
1380 PRI NT "Nombre: " ¡ P* 

LINE INPUT D*:IFD*<>"" THEN P 
= D* 



1420 D*="":PRINT"Teléfono: " ; L* 
1430 INPUT D*:IF D*<>"" THEN L*=D* 
1440 D*="":PRINT"Comentarios: " : C*. 



1450 LINE I NPUT D*:IF D«<>"" THEN CTI 
= D* 

1460 D*="": GOSUB 1560: CLS: PRI NT "La 

1470 PRINT"Nombre¡ " ; P*: PRINT"Di r 
ción: ";S*:PRINT"Teléfono: ";L*:PF 
T"Comentarios: " ; C$: PUT# 1 . NI 
14B0 GOSUB 1500: N1=0: GOTO 1310 
1490 'Congelación de pantalla 
1500 L0CATE6,22:PRINT"<Por favor 
Isa una teclaí" 
1510 B*=INKEY*:IF B*="" THEN 1510 E 
LSE RETURN 

1520 'Advertencia general 
1530 PRINT-Vuelta al menú per <ESC> 
": RETURN 
1540 'Acabar 

1550 CLOSE : SCREEN0: KEYON: COLOR 15.4 
,4:END 

1560 ' Apertura archivo y asignació 



de c 



regí; 



1570 LSET NOM*=F*:LSET ADR*=S*:LSET 

TEL*=L*:LSET COM*=C* : RETURN 
1580 '» Impressión * 
1590 L0CATE6, 22: PRINT" 

1600 ZX-/.=BASE(0) 
1610 FOR ZSV.-ZX7. TO ZS7.+959 
1620 LPRINT CHR$ (27) ; " A" ; 
1630 ZA'/.=vPEEK<ZS-/.) 
1640 IF ZA7.>31 THEN LPRINT CHR*(ZA7. 
); ELSE LPRINTCHR*( 1) ; CHR* < ZAX+64) ; 
1650 NEXT: RETURN 

1660 'Títulos exposición de datos 
1670 CLS : LOCATE 1 . 0 : PR I NT " Nom " : LOCA" 
E30,0:PRINT"tel*f on" 

1680 LOCATE 1 . 1 : PRINT" » : LOCATE30, 

" PRINT" ": RETURN 

1690 'Subrutina escrivir datos 

1700 LOCATE0, J: PRINT P*; TAB ( 22 ) : L*: 
RINT"Di rec . : " ; S*: PRINT"Comentar . : 
;C»; "n° orden: ":N:Nl=Nl+l:J=J+7 
710 IF Nl=2 THEN N1=0: J=3: GOSUB 15 
0: CLS: GOSUB 1660 

.720 RETURN 

1730 'Proceso de interrupción CTRL- 

STOP 

740 K=11:G0T0 360 
750 ' Rutina proceso de errores 
760 RR=ERR: PRINT: IF RR=60 THEN PRI 
NT "El disco no está formateado" 

l IF RR=66 THEN PRINT"Disco agot 
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Programa ■ 



NESTOR 



■Por Borja López Lamadrid I 



perimentado. Su habilidad con 
la bandeja no tiene parangón. 
Descubre cómo Néstor realiza 
su tarea cotidiana con la mayor 
naturalidad del mundo. 



PRESENTA: 



NESTOR 



50 COLOR l, 15, 15 

60 SCREEN 2 

70 A=90:B=55:C=-5 

S PSETÍA.B) , 1 
90 REM FRENTE 

1 00 DRAW " D2G 1 D2G 1 D6G2D2G2D2G2F 1R1D1 
11F1D1F2D6G1L1G1 

120 DRAW" D2G1D2G 1 D6G2D2G2D2G2U 1 F IR 1 
-1R1D1F1D1F2D1D6G1L1G1 
J PSET (A, B> , 1 
1 40 DRAW " D2G 1D2G1 D6G2D2G2D2G2F 1 R 1 D3 
Í1D1G1L1R6L3D3R2U3 
150 PSET (A, B) , 1 
160 DRAW"D251D2GÍD6G2D2G2D2G2F1R1D3 
1 1 D 1 G 1 L 1 P6L6F 1 R 1 F2D2R4L4D2F 1 R2E 1 

) PSET (A, B) , 1 
1 80 DRAW" D2G 1 D2G 1 D6G2D2G2D2G2F 1 R 1 D 1 



.D1F1D1F2DÓD1G1D2G1D2G1D2G1D2GU 
2G1D2F1D1F2R1F1R3E1R1D1L1E1R1D1 

> PSET (A. B) , 1 
200 DRAW "D2G1D2G1 D6G2D2G2D2G2F 1 R 1 D3 
G1D1G1L1R6L6F1R1F2D2R4L4D2F1R2E1G1L 
2G2D6BD15D2" 
2 10 REM LABIO 

220 DRAW " F 1 D5R3F 1R2E1R7E1 BD3BL3L4G2 
:L1H1":REM PARTE INFERIOR 
DRAW " BD5BR 1 F3R4E 1 R 1 E 1 R 1 E 1 
240 REM BARBILLA 

250 DRAW "BL 1 2BD5D3G 1F 1DSF3R4F 1 R6E3F 
3E3R4E1R1E1R1E3E1R1E1R1E1R1E4U2E4U4) 
J10E1U1E1U1E1 
9 REM oreja 
270 DRAWBE5R3E3U2E1U2E1U2E1U2E 
4G5L 1 G3D5G2L 1 G2L 1 U6H3U 1 H2U2H2U5H 1E 1 
U3H1E1U2H2U1E1U4 

280 REM PELO ENCIMA DE LA FRANTE 
290 DRAW " L3G 1 L 1 H3L2G3H3L2H 1L2G1D1G1 
L 1L2U3L3G1 L2H 1L4G 1H2E 1U8E 1R1U2E3R1U 
2R2E4R4E2R2E2R6E2R8F2R7E2P' :■' 
F3D5F3D5F2D7D5F 1 D3G2D5G 1 D2G 1 D2G 1 D3G 




300 REM CEJA 

310 DRAW" BL57BD5R 1 E 1 R2E 1 R6F2R3U 1 L 
2L6G1L2G1L1U1 
320 REM OJO 
330 DRAWBD5BR3E 1 RIE 1R2F 1R2F2R2BL3B 
D2L2H 1L3Q 1 E 1R2U2L2D3R5L2BU2U 1 BL4U2 
□ JERA 

350 DRAWBD7BL2R10E2" : REM SGMBRADE 
LA NARIZ 

360 DRAWBL17DD6BD9F1R2D3 
370 REM MENTON 

;> DRAW " BR30BU20L7D2G 1 D 1 5G2L4D2F3D 
2F1D663R2L453L5 

) 

ÍR13D36BD2 
410 REM CUELLO CAMISA 



:l REM CIRCULO 
ü CIRCLE (125, : 
i CIRCLE ( 125, I 

i REM LETRA 
ü OPEN "GF 
:i F'SET (85, 



: ': "AS#1 
L80) , 1 



CIERRE DEL CIRCULO 
(71. 192>-(180, 192) , 1 

HOMBRO 
:i47, 133>-<220, 133) , 1 
:i47, 132) -(220. 132) . 1 
[30, 133>-(85. 133) , 1 
[30, 132)-(85, 132) , 1 
LINEA DE AMERICANA 



l DRAW"D10F1D10F1D1(< 

l PSET (80, 133) , 1 

l DRAW"D10F1D10F1D1IÍ 



1D10F1D10F1D 



165-9) , 1 

165-9) ,' 1 
: PAINT (127 



PINTAR EL PELO 



Test de listados ■ 



1 DRAW"D10G1D1I? 
I PSET(159, 133) , 1 
l DRAW " D 1 0G 1 D 1 0G 1 D 1 05 1D10G1D10G1D 



AMERICANA 



:l REMPAINTC 
) PAINT (90, : 
I PAINT (150, 



I LINEÍ159. 131 : 
I COLOR 1 
l SOTO 920 
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Software ■ 



■Equipo TRON/Rony Van Ginkel» 



COBRAS ARC 



■i- 



4 t 



t t 



s 



ti, 



\ t 



t * 



t * 



t r 



UE 



o, pero finalmente lo guai 



pequeña cala, donde pude pe 



icontrar un buen resfria- 
do y un agudo dolor de cabeza. 

a ciegas, no tenía ni la me- 



avance. La guardé en un bolsillo de m 
monedero (es que. en estas tierras la 
barcas son extremadamente pequeñas) y 
proseguí mi búsqueda. 

fabuloso reloj de arena, pensé en dej 



¡SI 
t t 



t * 



Ya empezaba a pensar 




vez que las puertas se abr 

d* P " e " P,ar ' CnCC 
tesoro del Templo Cobra. 

Este juego se sale comple- 

DINAMIC, ya que es u 
aventura ^ grafit 

hay que introducir mediar 



Por Angeles Picajo 



Tierra 



¿Quieres ver cómo gira el r 
do? Es muy fácil gracias a 

a tu MSX. Se 
) muy bien 



J ' (C) 1.986 * Angeles * TIERRA 

5 ' 

í CLEAR 3000 
50 COLORIS, 1,1: SCREEN 2,2 
5 LINE(0,0)-(2S5,191),13,B 



90 ' 



POSICION AMIENTO ESTRELLAS 



110 FOR G=l TO 130 

1 20 H - /.=RND < G ) * 255 : V/.=RND ( G ) * 1 9 1 : CV.° 
RND (G) * 1 éi 

5 PSET(H-/.,V/.) ,CV. 
140 NEXT G 
150 ' 



170 ' 



CREACION SPRITES 



190 FOR M=0 TO 11 

200 A*="":FOR H=l TO 32 

210 READ A: A*=A*+CHR* ( A) 

220 NEXT H:SPRI-TE*(M)=A* 

230 NEXT M:SPRITE*(12)=SPRITE*(li: 

250 ' 

260 ' FORMACION 
270 ■ 

280 CIRCLE< 45,90) ,9,9, 
290 PAINT (45,90) ,9 
~~J CIRCLE<80,40) ,2. 14, 
II PAINT (80, 40) , 14 
3 CIRCLEU40, 1B5) ,3,2 
330 PAINT (140, 185) ,2 
340 CIRCLE (255,0) ,60, 11 
350 PAINT (254,1), 11 
360 ' 

370 ' FORMACION 



ROTACION TIERRA 




>74:R=73: Z = l 



X = 100: Y=62:G=74:H; 
H=H+1:G=G+1 
IFH-1S4 THEN Z=Z+1 
PUTSPRITE 0, (H,Y) , 1,0 
PUTSPRITE 1, (H+16.Y) ,1,1 
PUTSPRITE 2, (G+32, Y) , 1,2 
PUTSPRITE 3, (G+4B.Y) , 1,3 
PUTSPRITE 4, <H,Y+16>, 1,4 
PUTSPRITE 5, (H+16.Y+16) , 
PUTSPRITE 6, (G+32, Y+16) , 
PUTSPRITE 7, (G+4B, Y+16) . 
PUTSPRITE 8, (H, Y+32) , 1,8 
PUTSPRITE 9. (H+16, Y+32) , 
PUTSPRITE 10, (G+32. Y+32). 
PUTSPRITE 12, (H+32,25) ,0 
(H+32,B0) ,0, 
(H+32,0) ,0, 1! 
(H+32, 150) ,0, 



) PUTSPRITE 14 
9 PUTSPRITE 16 
1 PUTSPRITE 20 
J PUTSPRITE 22 
1 PUTSPRITE 25 
J PUTSPRITE 



73) ,0 
(H+32, 180) ,1 
INKEY*; IF AA*<>"" THEN END 
662 COLORIS, 4,4: COLORIS, 1 , 1 
670 IF Z=4 OR Z=8 THEN R=R-1 
680 IF H=134 AND INT(Z/2)=Z/2 THEN 

690 IF 6=126 THEN G=46 
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nito Carmona Macías ■ 



ANGULO 



La geometría un poco más sen- 
cilla mediante el programa que 
hoy presentamos. Descubre el 
valor numérico de todos los án- 
gulos, sin cálculos complejos ni 
operaciones innecesarias. 



10 ' **************************** 

20 • * * 
30 ' * ANGULO * 

40 ' * por * 

50 ' * BENITO CARMONA MACIAS * 
60 ' * * 
70 ■ **************************** 
80 MAXFILES=1: COLOR 1 , 15, 15: CLS: SCR 
EEN0: KEYOFF: WIDTH 37: LOCATE 4,4i"~ 
UT"INTRUCCIONES (S/N)";IIM»i 
90 IFIN*="S" OR IN*="s" THENCLS: GOS 
UB 1340 ELSE IF IN*="N" OR IN*=" 
THEN 100ELSE 80 




180 LOCATE 9,21:INPUT0F 
190 IF 0P<1 OR CP : THEN 
200 ON OP GOTO 210,830.16 
210 CLS: PRINT" INTRODUCE EL NUMERADO 
R EN RADS. ": LOCATE 4,5:INPUT A* 
220 A=VAL(A*):IF A<=0 THEN210 
230 CLS 

240 PRINT" INTRODUCE EL DENOMINADOR 
EN RADS" : LOCATE 4.5:INPUT B 
250 IF B<=0 THEN 230 ELSEC=A/B 
260 IF RIGHT*(A*, 1)=CHR*(227) THENF 
=PI*C: 6OSUB560 ELSE F=C:GOSUB590 
270 ' *********************** 
VALOR EN G.M.S. *** 



*** EQUIVALENTE DEL ANGULO ** 
***************************** 




360 ' *** VALOR EN RADIANES I 
370 ' *********************** 
380 GOSUB 1090 

********* ************** 

*** MENU SECUNDARIO *** 



410 ' 



****) 



420 CLS: GOSUB 1 130 
130 LOCATE 0.4: PRINT "VALOR: " ; IN' 
CHR*(248) ; INT(M) ; " ' " ; INT(S) : '" 
140 LOCATE 4, 20: PRINT"PULSA UNO DE 
ESOS NUMEROS": LOCATE 10,22: INPUT C 
IF 0<1 OR 0>3 THEN 440 
IF 0=3 THEN CLEAR:6OTO100 
470 ON O GOSUB1190.620 
480 IFINKEY*=""THEN 480 ELSEO=0:SCfJ 
EEN 0i BOTO 390 
490 ' *** PANTALLA *** 
500 CLS: ' *** MENU PRINCIPAL *** 
510 LOCATE 10.0:PRINT"MENU PRINCIPA 
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Programa ■ 



l LOCATE 4, 10: PRINT"2- PASAR DE 6 
S. A RADS. " 
540 LOCATE 4 , 1 5 : PR I NT " 3- FIN" : LOCAT 
?:PRI NT "PULSA UNO DE ESOS NUMER 

550 RETURN 

OPERACIONES 1 
570 G=C*1S0 
RETURN ■ 
' OPERACIONES 2 
600 G=C*180/PI 
.10 RETURN 

=20 ' REPRESENTACION GRAFICA DEL AN 
GULO 

é>30 SCREEN 2 

640 LINE(69,98)-(138,9S) , 10 
650 LINE ( 128, 38)'- < 128, 158) , 10 
660 CIRCLE ( 128. 98) .60. 1 
670 CIRCLE < 128,98) ,60, 1 , - (EQ) 
680 OPEN "GRP: " AS#1 

690 PRESETU94.90) :PRINT#1. "0tt":PRE 
SET (120.25) :PRINT#1, "tt/2" : PRESET (56 
, 93) l PRINT#1 , "ir" s PRESET (110, 160) : PR 
INT#1 , "3n/2" : PRESET (194. 100) ¡PRINTt* 
1, "2tt" 

700 PRESET (14, 170) :PRINT#1, "PULSA U 
> TECLA PARA REGRESAR" : PRESET (41 , 1 
B0) : PRINTttl , "AL MENU SECUNDARIO" 
? CLOSE 



720 RETURN 
730 ' 



t EQUIVl 



'ALENTE DEL ANGULO ** 



:l NEXT 

¡f REM *** VALOR EN G.M.S. *** 
■) M=G-(INT(G> ) 
:¡ M=M*60 



I NPUT " I NTRODUCE GRADOS" ; G 
í=0 THEN 830 ELSE CLS 
Y" INTRODUCE MINUTOS" ; M 
1 CLS: IF MÍ0OR M>60 THEN 860 
) INPUT" INTRODUCE SEGUNDOS": S 
> IF S 60 OR S<0 THEN CLS: GOTO E 

************************* 
*** VALOR EN RADIANES *** 
************************* 



*****************; 



I EQUIVALENTE I 



Q **********í************ 

t MENU SECUNDARIO *** 



"VALOR: ";L 



" RA 



1000 " 

110 CLS:GOSUB 1 

120 LOCATE 0,3: 
DS. " 

030 LOCATE 0,6:PRINT"VALOR: ":K;CI 

227) ; » RADS. " 
040 LOCATE 4.20:PRINT"PULSA UNO DE 
ESOS NUMEROS" : LOCATE 10,22: INPUTU 
050 IF U<1 OR U 3 THEN 1040 

IF U=3 THEN CLEAR: GOTO 100 
070 ON U GOSUB 1190,620 

IF INKEY*="" THEN 1080 ELSE L 
SCREEN0:GOTO 1010 

.090 REM *** VALOR EN RADIANES * 
100 R=(G+(M/60)+(S/3600) ) 
110 L=R*PI/1B0:K=R/180 
120 RETURN 

130 ' *** MENU SECUNDARIO *** 
140 LOCATE10,0:PRINT"MENU SECUNDAR 
O" 

150 LOCATE 0.9:PRINT"1- VER SUS F 
:ONES TRIGONOMETRICAS" 

160 LOCATE 0. 13:PRINT"2- VER SU RE 
PRESENTACION EN LA": LOCATE 4,15:PRI 
NT"CIRCUNFERENCI A" 

170 LOCATE 0,18:PRIN- 

MENU PRINCIPAL" 

180 RETURN 

190 CLS: GOSUB 1290: REM DEFINICION 
DE FUNCIONES INVERSAS 

200 LOCATE 3. 1 : PRINT"SEN" ; CHR* (224 

;"=";SIN 

210 LOCATE 3, 4: PRINT"COS" ; CHR* (224 
: " = ";COS(L> 

220 LOCATE 3. 7: PRINT"TAN" ; CHR*'(224 
: " = ";TAN(L> 

230 LOCATE 3, 10: PRINT"COSEC" ; CHR* ( 
!24) ; " = ";CO* 

240 LOCATE 3. 13: PRINT"SEC" : CHR* (22 
■) ; " = ";SE* 

250 LOCATE 3. 16: PRINT"CTG" ; CHR* (22 
; "="¡CTG* 
1260 LOCATE 2. 20: PRINT"PULSA UNA TE 
CLA PARA VOLVER AL ME-" 

270 LOCATE 2,22:PRINT"NU SECUNDAR I 



¡INT"3- VOLVER AL 
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1300 IF SIN(L)=0 THEN CO*=CHR* (236) 

ELSE C0*=STR*(1/SIN(L) > 

1310 IF COS(L)=0 THEN SE*=CHR* ( 236) 






ELSE SE*=STR*(1/C0S(L> > 

1320 IF TAN(L)=0 THEN CTG*=CHR* (236 

>ELSECTG*=STR*(1/TAN(L> ) 

1330 RETURN 

1340 LOCATE 11,0: PRINT" INBTRUCCIONE 
S":REM INSTRUCCIONES 

1350 LOCATE 3, 2: PRINT "Siempre que i 
ntroduzcas un data " : LOCATE 3,4:PRIN 
T"pulsa RETURN. " 

1360 LOCATE 3,6:PRINT"La letra ir (p 
i) se escribe pulsan- " : LOCATE -3, 8: 
PRINT"do la tecla SHIFT, la tecla C 
ODE,": LOCATE 3, 10: PRINT "y la letra 

1370 LOCATE 3 . 1 2 : PR I NT " Las abreviat 
uras G.M.S. significan": LOCATE 3,14 
: PRINT" GRADOS, MINUTOS Y SEGUNDOS. 

1380 LOCATE 3, 16: PRINT"En el numera 
dor puede ir w o no " : LOCATE 3,18:P 
RINT"pero en el denominador no pued 
e" : LOCATE 3, 20: PRI NT" i r . " 
1390 LOCATE 6, 22: PRINT" (PULSA UNA T 


Especial para nuevos 
quede al margen te propo- 

queño programa de gráfi- 

BASES 

1 "dos drin r rtic í pa t r to ~ 

2- programas se re- 
mitirán grabados en 

protegidas dentro de 
^ su estuche plástico. 

dos P ™%Tt d P ' aB ' a 


INI PROGRAMA 

IONAL! 


ECLA) " 

1400 IF INKEY*=" "THEN 1400 ELSE CL5 
1410 LOCATE 3,2:PRINT"Por ejemplo u 
n ángulo lo dan en ": LOCATE 3,4:PRI 
NT"f actor de it (3n/4) , en este casa 
" : LOCATE 3,6:PRINT"el numerador ser 
ia 3tt, y el deno- ": LOCATE 3,8:PRINT 

1420 LOCATE 3 , 1 0: PR INT"E1 signo * s 
e puede omitir, por " : LOCATE 3,12:P 

1430 LOCATE 3,14: PRI NT "En el aparta 
do de pasar de G.M.S. " : LOCATE 3,16: 
PRINT" a RADS. el resultado lo da c 
orno": LOCATE 3, 18: PRINT"un numero o 
un numero muí t i pl i ca-" : LOCATE 3,20: 

1440 LOCATE 6^23: PRINT" (PULSA UNA T 


mo y s P e publicarán en la 
sección Línea Directa. 

PREMIOS 

5. - MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. " MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 

software, haciéndolos 
efectivos a los 15 días 


o 75 

r- 9mmm 


1450 IF INKEY*=" "THEN 1450 ELSE CLS 
1460 LOCATE 3. 2: PRINT"Recuerda que 

":LOCATE 3,6:PRINT" medir los angul 

1470 LOCATE 3, 8: PRINT"Cuando tt (pi) 
vaya sola hay que" : LOCATE 3, 10: PRI 

1480 LOCATE 3, 12: PRINT^uando^aya 
una cifra que termi -" : L0CATE3, 14: PR 
INT"en 9 periódica pura o mixta se" 
: LOCATE 3, 16 : PRI NT" puede considerar 
como cero. Cuando" : LOCATE 3,18:PRIN 


FALLO Y 
JURADO 

7." El Departamento de 
Programación actuará 

^ será inapelable. 



Programa ■ 



480 IF S=l THEN B=B+1:PZ=.5 

490 IF Y<0THEN Y=17S 

500 IF X<C1 THEN 630 

510 IFX Í C2THEN 630 

520 REM ********************* 

530 REM SPRITEB 



550 FUTSPRITE l.í.X.Y!. 4. 1 
560 PUTSPRITE 2. (Q.W). 7, 1 
570 PUTSPRITE 3, <Q2,W2>, 14. 
580 PUTSPRITE 5, <Q4. W4) , 13, 
590 PUTSPRITE 4,(03,W3). 11, 
600 PUTSPRITE 6, (Q5,W5), 2, 
610 L=L+10:P=P+PZ 
620 GOTO 410 
630 REM F I N 
640 REM 

650 PUTSPRITE l.(X.Y), 8. 1 
660 PUTSPRITE 2, (Q.W), 8,1 
670 PUTSPRITE 3. (02.W2), B, 
680 PUTSPRITE 4,(Q3,W3), 8, 
690 PUTSPRITE 5, (Q4.W4), 8, 
700 PUTSPRITE 6. <05,W5>, 8, 
710 COLOR 1 

720 PRESET (224,5) :PRINT#1. "| 
730 COLOR 15 
740 F-CINT(P) 

750 PRESET(225,6> :FRINT#1,P 
760 IFV=1THEN900ELSEGOTO IBi 
770 REM i******************* 



790 REM ************* 

í LINE(85,0) - (165, I 
) RETURN 



' ZZ/2=IN' 



( Z Z . 2 ! 



5:Q3=Í0S 

830 REM 

840 F-P+l: ZZ=ZZ+1: 
THEN870 

B50 Q3=Q3- 1 : Q4=Q4- 1 : 05=05+2 : 02=02-2 
860 Q=Q+3 :G0TO e90 

870 Q-Q-3 : Q2=Q2+2: Q3=Q3+ 1 : Q4=Q4+1 : 

05=05-2 

880 REM 

890 RETURN 

900 PLAY "L4A2" 

910 GOTO910 

920 REM *************************** 
930 REM DEFINICION DE PANTALLA 

940 REM *************************** 

950 LINE(105,0)-(145, 192) .2, BF 

960 C1=112:C2=138 

970 RETURN 

980 COLOR 15.4,7 

990 REM ************************** 

DATAS 



780 REMDEFINICION DE I 

Test de listados ■ 



320 -207 470 - 



,10 -245 760 -119 910 - 



620 - 
630 - 
640 - 



370 
380 
390 



- 36 520 - 



-105 800 -133 



690 -204 840 -UB 990 - 
700 -207 850 -159 1000 - 



- 96 710 -207 



-142 440 -101 



-202 
-207 
-202 



720 
730 -219 
740 -125 
750 -195 



-228 1010 - 

870 -110 1020 -1- 

880 - 0 1030 -13 

890 -142 TOTAL: 
900 -248 10119 



LOS JUEGOS MAS ESPERADOS 




PIDELO A TU DISTRIBUIDOR LOCAL ¡¡YA!! 



